1 ' *** OISAC 2 *** LE PENDU ***
10 CLS:CLEAR:DIMN$(20):LOCATE13,0:PRINT"LE PENDU";:RESTORE5000:FORI=0TO19:READN$(I):NEXT:$=N$(INT(RAN#*20)):L=LEN($):ERASE N$:DIMN$(13):RESTORE6000:FORI=1TO11:READN$(I):NEXT
12 FORI=252TO255:DEFCHR$(I)="0000000000":NEXT:POKE0,253:POKE1,254:POKE32,252:POKE33,255:a$="0F31":b$="0101":c$="8181":d$="2141":e$="4121":FORI=1TOL:LOCATEI+6,1:PRINT"-";:NEXT:PRINT" :";CHR$(0);
15 LOCATEL+9,1:R$=INPUT$(1):P=0:FORI=0TOL+1:IFR$=MID$($,I+1,1)THENC=C+1:P=1:LOCATEI+7,1:PRINTR$;
20 NEXT:IFP=1THEN30ELSE E=E+1
25 ON E GOSUB 1000,1000,1000,1010,1015,1020,1020,1025,1030,1030,1035,1040
30 PRINTCHR$(0);:IFC=L THENLOCATEL+10,1:PRINT"GAGNE":GOTO10 ELSE15
35 GOTO15
1000 DEFCHR$(252)=a$+N$(E):RETURN
1010 DEFCHR$(253)=b$+"FF"+b$:RETURN
1015 DEFCHR$(253)=b$+"FF"+c$:RETURN
1020 DEFCHR$(254)=c$+N$(E)+b$:RETURN
1025 DEFCHR$(254)=N$(E):RETURN
1030 DEFCHR$(255)=d$+N$(E)+e$:RETURN
1035 DEFCHR$(255)=N$(E):RETURN
1040 LOCATE7,1:PRINT$": PERDU":GOTO10
5000 DATA EEPROM,OISAC,CASIO,ORDINATEUR,PERSONNEL,LEPENDU,MEMOIRE,WARGAMES,NEWYORK,ATARI,UTILISATEUR,EXTENTION,INTERFACE,JEUXVIDEO,EMULATEUR,CARACTERE,PROGRAMME,ALGORITHME,BASIC,MRBIGBUG
6000 DATA C10101,FF0101,FF310F,0,0,81,E1,819DF71D01,81,F1,2549F14925